home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / 1520.BIN / 1520 CMDS.DOC (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.6 KB  |  183 lines
  1. 100  REM ******************************
  2. 102  REM *                            *
  3. 104  REM * E.G. MANNER        JUNE 85 *
  4. 106  REM * MILPITAS        CALIFORNIA *
  5. 108  REM *                            *
  6. 110  REM ******************************
  7. 112  REM
  8. 114  P=53280:POKEP,11:POKEP+1,11:            POKE646,15:PRINTCHR$(142)
  9. 116  PRINT"[147]    1520 PLOTTER INFO + SCREEN DUMP     "
  10. 118 PRINT"SELECT ONE:"
  11. 120 PRINT"       F1 [146] PRINTER    F7 [146] PLOTTER"
  12. 122 GETA$:IFA$=""THEN122
  13. 124 IFA$="[133]"THENDV=4:PRINT"      PRINTER": FORT=0TO500:NEXTT:GOTO140
  14. 126 IFA$="[136]"THENDV=6:PRINT"      RESETING PLOTTER (13 SECS)...":GOTO130
  15. 128 GOTO116
  16. 130 OPEN7,6,7:PRINT#7:CLOSE7:               REM SOFTWARE RESET
  17. 132 FORT=0TO 7000:NEXTT
  18. 134 OPEN3,6,3:PRINT#3,0:CLOSE3:             REM 80-COLUMN MODE.
  19. 136 REM
  20. 138 REM PRINT PLOT AREA
  21. 140 PRINT"[147]      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  22. 142 PRINT"      [165]0,+998    + Y     479,+998[170]"
  23. 144 PRINT"      [165]                          [170]"
  24. 146 PRINT"      [165]            [221]             [170]"
  25. 148 PRINT"      [165]            [221]             [170]"
  26. 150 PRINT"      [165]            [221]             [170]"
  27. 152 PRINT"      [165]            [221]             [170]"
  28. 154 PRINT"      [165]            [221]             [170]"
  29. 156 PRINT"      [165]            [221]             [170]"
  30. 158 PRINT"      [165]            [221] 240,0       [170]"
  31. 160 PRINT"      [165]            [221]/            [170]"
  32. 162 PRINT"      [165]X [192][195][195][195][195][195][195][195][195][195][214][195][195][195][195][195][195][195][195][195][195][192] X[170]"
  33. 164 PRINT"      [165]0,0         [221]      479,0  [170]"
  34. 166 PRINT"      [165]HOME        [221]             [170]"
  35. 168 PRINT"      [165]            [221]             [170]"
  36. 170 PRINT"      [165]            [221]             [170]"
  37. 172 PRINT"      [165]            [221]             [170]"
  38. 174 PRINT"      [165]            [221]             [170]"
  39. 176 PRINT"      [165]            [221]             [170]"
  40. 178 PRINT"      [165]                          [170]"
  41. 180 PRINT"      [165]0,-998    - Y     479,-998[170]"
  42. 182 PRINT"      [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  43. 184 INPUT"         PRINT SCREEN <Y/N>  N[157][157][157]";A$
  44. 186 IFA$="Y"THENPRINT"[145]                                 "
  45. 188 IFA$="Y"THENGOSUB448
  46. 190 PRINT"[147]           SECONDARY ADDRESS            "
  47. 192 PRINT"  FILE   SECONDARY"
  48. 194 PRINT"  NUMBER ADDRESS OPERATION  EXAMPLE"
  49. 196 PRINT"  ====== ======= =========  ==========="
  50. 198 PRINT"    4       0    ASCII      OPEN 4,6"
  51. 200 PRINT"    1       1    PLOT X,Y   OPEN 1,6,1"
  52. 202 PRINT"    2       2    COLOR      OPEN 2,6,2"
  53. 204 PRINT"    3       3    CH. SIZE   OPEN 3,6,3"
  54. 206 PRINT"   44       4    CH. ROTATE OPEN 44,6,4"
  55. 208 PRINT"    5       5    DASH LINES OPEN 5,6,5"
  56. 210 PRINT"    6       6    UP/LOW CH. OPEN 6,6,6"
  57. 212 PRINT"    7       7    RESET      OPEN 7,6,7"
  58. 214 INPUT"         PRINT SCREEN <Y/N>  N[157][157][157]";A$
  59. 216 IFA$="Y"THENPRINT"[145]                               [145]"
  60. 218 IFA$="Y"THENGOSUB448
  61. 220 PRINT"[147]    SECONDARY ADDRESS =0: PRINT ASCII   "
  62. 222 PRINT"[145]         OPEN 4,6"
  63. 224 Q$=CHR$(34)
  64. 226 PRINT"FORMAT:  PRINT#4,"Q$"YOUR DATA"Q$
  65. 228 PRINT"         CLOSE 4"
  66. 230 PRINT""
  67. 232 PRINT"======================================="
  68. 234 PRINT"         PRINTS DATA EXACTLY AS IS"
  69. 236 PRINT"         RECEIVED FROM THE COMPUTER."
  70. 238 INPUT"         PRINT SCREEN <Y/N>  N[157][157][157]";A$
  71. 240 IFA$="Y"THENPRINT"[145]                                      "
  72. 242 IFA$="Y"THENGOSUB448
  73. 244 PRINT"[147]    SECONDARY ADDRESS =1: PLOTX,Y       "
  74. 246 PRINT"[145]         OPEN 1,6,1"
  75. 248 PRINT"FORMAT:  PRINT#1,"Q$"COMMAND"Q$",X,Y"
  76. 250 PRINT"         CLOSE 1"
  77. 252 PRINT"COMMAND  FUNCTION"
  78. 254 PRINT"=======  =============================="
  79. 256 PRINT"   H     MOVE TO (0,0) HOME."
  80. 258 PRINT"   I     SET RELATIVE ORIGIN POINT"
  81. 260 PRINT"         (X0,Y0) EQUAL TO THE CURRENT"
  82. 262 PRINT"         POSITION (X,Y).
  83. 264 [153]"   M     MOVE TO POSITION (X,Y)
  84. 266 PRINT"         RELATIVE TO THE ABSOLUTE"
  85. 268 PRINT"         ORIGIN POINT (0,0). PEN UP."
  86. 270 PRINT"   D     DRAW TO POSITION (X,Y)"
  87. 272 PRINT"         RELATIVE TO THE ABSOLUTE"
  88. 274 PRINT"         ORIGIN POINT (0,0). PEN DOWN."
  89. 276 PRINT"   R     MOVE TO POSITION (X,Y) RELATIVE"
  90. 278 PRINT"[145]         TO THE RELATIVE ORIGIN POINT"
  91. 280 PRINT"         (X0,Y0). PEN UP."
  92. 282 PRINT"   J     DRAW TO POSITION (X,Y) RELATIVE"
  93. 284 PRINT"[145]         TO THE RELATIVE ORIGIN POINT"
  94. 286 PRINT"         (X0,Y0). PEN DOWN."
  95. 288 INPUT"         PRINT SCREEN <Y/N>  N[157][157][157]";A$
  96. 290 IFA$="Y"THENPRINT"[145]                              "
  97. 292 IFA$="Y"THENGOSUB448
  98. 294 PRINT"[147]    SECONDARY ADDRESS =2: COLOR         "
  99. 296 PRINT"[145]         OPEN 2,6,2"
  100. 298 PRINT"FORMAT:  PRINT#2,COLOR NUMBER"
  101. 300 PRINT"         CLOSE 2"
  102. 302 PRINT"COMMAND  FUNCTION"
  103. 304 PRINT"=======  =============================="
  104. 306 PRINT"   0     BLACK"
  105. 308 PRINT"   1     BLUE"
  106. 310 PRINT"   2     GREEN"
  107. 312 PRINT"   3     RED"
  108. 314 INPUT"         PRINT SCREEN <Y/N>  N[157][157][157]";A$
  109. 316 IFA$="Y"THENPRINT"[145]                                      "
  110. 318 IFA$="Y"THENGOSUB448
  111. 320 PRINT"[147]    SECONDARY ADDRESS =3: CHARACTER SIZE"
  112. 322 PRINT"[145]         OPEN 3,6,3"
  113. 324 PRINT"FORMAT:  PRINT#3,SIZE NUMBER"
  114. 326 PRINT"         CLOSE 3"
  115. 328 PRINT"COMMAND  FUNCTION"
  116. 330 PRINT"=======  =============================="
  117. 332 PRINT"   0     80 CHARACTERS/LINE (SMALLEST)"
  118. 334 PRINT"   1     40 CHARACTERS/LINE (DEFAULT)"
  119. 336 PRINT"   2     20 CHARACTERS/LINE"
  120. 338 PRINT"   3     10 CHARACTERS/LINE (BIGGEST)"
  121. 340 INPUT"         PRINT SCREEN <Y/N>  N[157][157][157]";A$
  122. 342 IFA$="Y"THENPRINT"[145]                                      "
  123. 344 IFA$="Y"THENGOSUB448
  124. 346 PRINT"[147]    SECONDARY ADDRESS =4: ROTATE TEXT   "
  125. 348 PRINT"[145]         OPEN 44,6,4"
  126. 350 PRINT"FORMAT:  PRINT#4,ROTATE NUMBER"
  127. 352 PRINT"         CLOSE 44"
  128. 354 PRINT"COMMAND  FUNCTION"
  129. 356 PRINT"=======  =============================="
  130. 358 PRINT"   0     NORMAL HORIZONTAL (DEFAULT)"
  131. 360 PRINT"   1     90 DEGREE ROTATION TO RIGHT."
  132. 362 INPUT"         PRINT SCREEN <Y/N>  N[157][157][157]";A$
  133. 364 IFA$="Y"THENPRINT"[145]                                      "
  134. 366 IFA$="Y"THENGOSUB448
  135. 368 PRINT"[147]    SECONDARY ADDRESS =5: DASHED LINES  "
  136. 370 PRINT"[145]         OPEN 5,6,5"
  137. 372 PRINT"FORMAT:  PRINT#5,SCRIBE NUMBER"
  138. 374 PRINT"         CLOSE 5"
  139. 376 PRINT"COMMAND  FUNCTION"
  140. 378 PRINT"=======  =============================="
  141. 380 PRINT"   0     SOLID LINE (DEFAULT)"
  142. 382 PRINT"   1     BROKEN LINE (SMALLEST)."
  143. 384 PRINT" THRU"
  144. 386 PRINT"   15    BROKEN LINE (LARGEST)."
  145. 388 INPUT"         PRINT SCREEN <Y/N>  N[157][157][157]";A$
  146. 390 IFA$="Y"THENPRINT"[145]                                      "
  147. 392 IFA$="Y"THENGOSUB448
  148. 394 PRINT"[147]    SECONDARY ADDRESS =6: UP/LOW CASE   "
  149. 396 PRINT"[145]         OPEN 6,6,6"
  150. 398 PRINT"FORMAT:  PRINT#6,CASE NUMBER"
  151. 400 PRINT"         CLOSE 6"
  152. 402 PRINT"COMMAND  FUNCTION"
  153. 404 PRINT"=======  =============================="
  154. 406 PRINT"   0     DEFAULT UPPER/SHIFTED LOWER"
  155. 408 PRINT"   1     LOWER CASE/SHIFTED UPPER"
  156. 410 INPUT"         PRINT SCREEN <Y/N>  N[157][157][157]";A$
  157. 412 IFA$="Y"THENPRINT"[145]                                      "
  158. 414 IFA$="Y"THENGOSUB448
  159. 416 PRINT"[147]    SECONDARY ADDRESS =7: RESET PLOTTER "
  160. 418 PRINT"[145]         OPEN 7,6,7"
  161. 420 PRINT"FORMAT:  PRINT#7"
  162. 422 PRINT"         CLOSE 7"
  163. 424 PRINT""
  164. 426 PRINT"======================================="
  165. 428 PRINT"RESETS THE PLOTTER.  ALL SECONDARY"
  166. 430 PRINT"ADDRESSES ARE RESET TO THE DEFAULT"
  167. 432 PRINT"VALUES AND THE PLOTTER'S MEMORY"
  168. 434 PRINT"IS CLEARED."
  169. 436 PRINT"USE AT THE BEGINNING OR END OF"
  170. 438 PRINT"EACH PROGRAM."
  171. 440 INPUT"           PRINT TEXT <Y/N>  N[157][157][157]";A$
  172. 442 IFA$="Y"THENPRINT"[145]                                      "
  173. 444 IFA$="Y"THENGOSUB448
  174. 446 END
  175. 448 OPEN1,3:OPEN2,DV:PRINT#1,CHR$(19);
  176. 450 FORM=1TO25:A$="               "
  177. 452 FORL=1TO40:GET#1,B$:A$=A$+B$:NEXT
  178. 454 R$=CHR$(13):IFB$=R$THEN458
  179. 456 PRINT#2,A$:NEXTM:GOTO460
  180. 458 PRINT#2,A$;:NEXTM
  181. 460 PRINT#1:CLOSE1:PRINT#2:CLOSE2
  182. 462 RETURN
  183.